0 POKE53281,0:POKE53280,1:PRINT"[147]            CRYPTIC PRODUCT":PRINT"PLEASE WAIT..."
1 REM =================================
2 REM   COMMODARES PROBLEM #51-4 :
3 REM     CRYPTIC PRODUCT
4 REM   SOLUTION BY
5 REM     JUSTIN SMALLEY
6 REM =================================
10 A=0:C=2
15 :
20 A=A+1:IFA=CTHEN20
21 B=-1:IFA>9THENEND
30 B=B+1:IFB=AORB=CTHEN30
31 D=0:IFB>9THEN20
40 D=D+1:IFD=AORD=BORD=CTHEN40
41 E=-1:IFD>9THEN30
50 E=E+1:IFE=AORE=BORE=CORE=DTHEN50
51 IFE>9THEN40
55 :
60 P=(A*10+B)*10+C:Q=D*10+E:R=P*Q
61 R$=STR$(R):IFLEN(R$)<6THEN50
65 :
70 FORN=1TO5:Y=VAL(MID$(R$,N+1,1))
71 IFY=AORY=BORY=CORY=DORY=ETHEN50
73 FORM=1TON-1:IFM<>NTHENIFY=F(M)THEN50
74 NEXT:F(N)=Y:NEXT
75 :
80 PRINTP;"*";Q;"=";R:END
85 :
100 REM --- TO FIND ALL SOLUTIONS,
110 REM ***CHANGE THESE LINES:
120 REM 20 A=A+1
130 REM 30 B=B+1: IF B=A THEN 30
140 REM 31 C=-1: IF B>9 THEN 20
150 REM 41 E=-1: IF D>9 THEN 36
160 REM 80 PRINT P;"*";Q;"=";R: GOTO 50
170 REM ***ADD THESE LINES:
180 REM 36 C=C+1: IF C=A OR C=B THEN 36
190 REM 37 D=0: IF C>9 THEN 30